home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_n.inc < prev    next >
Encoding:
Text File  |  1998-07-24  |  1.8 KB  |  123 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ò\Ī
  4. *
  5. *    âjâàü[âgâëâï
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. dan_n:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #16,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     move.w    d1,(a6)+
  19.     move.w    d2,(a6)+
  20.     move.w    d7,(a6)+
  21.     move.w    #$0003,(a6)+
  22.  
  23.     addi.w    #16,d2
  24.     addq.w    #1,d7
  25.     move.w    d1,(a6)+
  26.     move.w    d2,(a6)+
  27.     move.w    d7,(a6)+
  28.     move.w    #$0003,(a6)+
  29.  
  30.     rts
  31. @@:
  32.     addi.w    #$4000,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d2
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     rts
  46. *---------------------------------------
  47. dan_for:
  48.     move.w    C_X(a1),d1
  49.     move.w    C_Y(a1),d2
  50.     subq.w    #8,d1
  51.     subi.w    #16,d2
  52.     tst.w    C_LR_F(a1)
  53.     bne    @f
  54.  
  55.     addi.w    #$0002,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     rts
  69. @@:
  70.     addi.w    #$4002,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     addi.w    #16,d2
  77.     addq.w    #1,d7
  78.     move.w    d1,(a6)+
  79.     move.w    d2,(a6)+
  80.     move.w    d7,(a6)+
  81.     move.w    #$0003,(a6)+
  82.  
  83.     rts
  84. *---------------------------------------
  85. dan_back:
  86.     move.w    C_X(a1),d1
  87.     move.w    C_Y(a1),d2
  88.     subq.w    #8,d1
  89.     subi.w    #16,d2
  90.     tst.w    C_LR_F(a1)
  91.     bne    @f
  92.  
  93.     addi.w    #$0004,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     addi.w    #16,d2
  100.     addq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     rts
  107. @@:
  108.     addi.w    #$4004,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addi.w    #16,d2
  115.     addq.w    #1,d7
  116.     move.w    d1,(a6)+
  117.     move.w    d2,(a6)+
  118.     move.w    d7,(a6)+
  119.     move.w    #$0003,(a6)+
  120.  
  121.     rts
  122. *---------------------------------------
  123.